home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…Business) - New Member 21 / Software of the Month Club XXI - New Member Business.ISO / mac / Business / Financial Portfolio v4.1 ƒ / Financial Portfolio v4.1 / Financial Portfolio v4.1.rsrc / LENS_129_Report Fonts.bin < prev    next >
Text File  |  1995-11-23  |  4KB  |  131 lines
  1. ItemType: WIND
  2. Rect: 105,285,555,389
  3. AutoSize: FALSE
  4. Style: Dialog
  5. HasTitleBar: TRUE
  6. HasZoomBox: FALSE
  7. Name: Report Fonts
  8. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue┬┬if objValue="Open" then ┬  ┬else if objValue="Close" then ┬  ┬else if objValue="Suspend" then ┬  ┬else if objValue="Resume" then ┬  ┬else if objValue="CloseBox" then ┬  ┬else if objValue="ZoomBox" then ┬  ┬else if objValue="GrowBox" then ┬  ┬else if objValue="TitleBar" then ┬  ┬end if┬┬--end windowEvent
  9. Params: i9_Text┬i9_SelectionText┬i13_Text┬i13_SelectionText┬i10_SelectionText┬i14_SelectionText┬i11_SelectionText┬i15_SelectionText┬i0_TopLeft
  10.  
  11. ItemType: PUSH
  12. Rect: 370,68,442,88
  13. Name: OK
  14. DefaultItem: TRUE
  15. AutoClose: TRUE
  16.  
  17. ItemType: PUSH
  18. Rect: 366,26,446,46
  19. Name: cancel
  20. CancelItem: TRUE
  21. AutoClose: TRUE
  22. Script: restoreFonts
  23.  
  24. ItemType: LINE
  25. Rect: 27,58,344,60
  26. Pen: Gray
  27. PenSize: 1,2
  28.  
  29. ItemType: LBL
  30. Rect: 2,32,56,48
  31. Text: Header:
  32.  
  33. ItemType: LBL
  34. Rect: 16,78,56,94
  35. Text: Body:
  36.  
  37. ItemType: LBL
  38. Rect: 60,12,93,28
  39. TextStyle: Underline
  40. Text: Font
  41.  
  42. ItemType: LBL
  43. Rect: 197,12,228,28
  44. TextStyle: Underline
  45. Text: Size
  46.  
  47. ItemType: LBL
  48. Rect: 259,12,296,28
  49. TextStyle: Underline
  50. Text: Style
  51.  
  52. ItemType: POP
  53. Rect: 56,34,187,51
  54. TextFont: Geneva
  55. TextSize: 10
  56. AutoSize: FALSE
  57. Name: FontH
  58. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"FontH","value")┬send ("setStyle textfont,header,""e&it"e) to this cd┬--end mouseUp
  59.  
  60. ItemType: POP
  61. Rect: 195,34,249,51
  62. TextFont: Geneva
  63. TextSize: 10
  64. AutoSize: FALSE
  65. Name: sizeH
  66. Text: 9┬10┬12┬14┬18┬20┬24
  67. Script: get wsGet(wdID,"SizeH","Value")┬send "setStyle textsize,header,"&it to this cd
  68.  
  69. ItemType: POP
  70. Rect: 257,34,348,51
  71. TextFont: Geneva
  72. TextSize: 10
  73. AutoSize: FALSE
  74. Name: styleH
  75. Text: plain┬bold┬italic┬bold,italic
  76. Script: get wsGet(wdID,"styleH","Value")┬send "setStyle textstyle,header,"&it to this cd┬
  77.  
  78. ItemType: LINE
  79. Rect: 356,0,359,105
  80. PenSize: 3,1
  81.  
  82. ItemType: POP
  83. Rect: 56,79,187,96
  84. TextFont: Geneva
  85. TextSize: 10
  86. AutoSize: FALSE
  87. Name: FontB
  88. Script: get wsGet(wdID,"FontB","selectionText")┬put it into ff┬send ("setStyle textfont,body,""e&ff"e) to this cd┬send ("setStyle textfont,selectedPrint,""e&ff"e) to this cd┬send ("setStyle textfont,defPick1Print,""e&ff"e) to this cd┬send ("setStyle textfont,defPick2Print,""e&ff"e) to this cd
  89.  
  90. ItemType: POP
  91. Rect: 195,79,249,96
  92. TextFont: Geneva
  93. TextSize: 10
  94. AutoSize: FALSE
  95. Name: sizeB
  96. Text: 9┬10┬12┬14┬18
  97. Script: get wsGet(wdID,"sizeB","Value")┬send "setStyle textsize,body,"&it to this cd
  98.  
  99. ItemType: POP
  100. Rect: 258,79,349,96
  101. TextFont: Geneva
  102. TextSize: 10
  103. AutoSize: FALSE
  104. Name: styleB
  105. Text: plain┬bold┬italic┬bold,italic
  106. Script: get wsGet(wdID,"styleB","Value")┬send "setStyle textstyle,body,"&it to this cd
  107.  
  108. ItemType: TEXT
  109. Rect: 10,109,436,152
  110. TextFont: Geneva
  111. TextSize: 9
  112. AutoSize: FALSE
  113. Name: Instructions
  114. Text: Choose the font, size and style for the header and body sections of the report from the above pop-up menus (initially, the previous settings are shown.) Click ╥OK╙ to retain those changes or ╥cancel╙ to revert to the previous settings.
  115.  
  116. ItemType: PUSH
  117. Rect: 15,7,31,23
  118. AutoSize: FALSE
  119. Name: ?
  120. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"0","Height")┬if it<120 then┬  wsSet wdID,"0","Height", "150"┬else┬  wsSet wdID,"0","Height", "104"┬end if┬--end mouseUp
  121.  
  122. ItemType: LINE
  123. Rect: 1,104,445,106
  124. PenSize: 1,2
  125.  
  126. ItemType: TEXT
  127. Rect: 11,63,340,75
  128. TextFont: Geneva
  129. TextSize: 9
  130. Name: suggestion
  131. Text: (use a monospaced font such as Courier or Monaco to preserve columns)